home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
DFC_3SRC.ZIP
/
HALL3SRC.ASM
< prev
next >
Wrap
Assembly Source File
|
1996-07-04
|
19KB
|
1,221 lines
;╔══════════════════════════════════════════════════════╗
;║ Hallucinogen BBS intro III source code. ║
;║ coded by Remdy in June 1996. ║
;║ released to show the entire world how lame i code !! ║
;║ (NEW ID:Tu sais ce qu'il te reste a faire!) ║
;║ This is FREEWARE! enjoy... ║
;╚══════════════════════════════════════════════════════╝
.386
PILE SEGMENT STACK USE16
DW 512 DUP (0)
PILE ENDS
BOMBERMAN SEGMENT
include GFX.INC
erreur_memory_mess_pattern db 'SICK?',10,13,'$'
VIDEO_SEG DW ?
VIDEO_SEG2 DW ?
VIDEO_SEG3 DW ?
VIDEO_SEG4 DW ?
VIDEO_SEG5 DW ?
BOMBERMAN ENDS
;-----------------------------------------
CODE SEGMENT USE16
ASSUME CS:CODE,DS:BOMBERMAN,SS:PILE
;----------------------------------------------------------------------------
aff proc near
push dx ax
mov dx,3dah
txsyncww: in al,dx
and al,8
jz txsyncww
pop ax dx
pusha
push es ds
mov ax,0a000h
mov es,ax
mov ax,bomberman
mov ds,ax
mov ax,ds:[video_seg4]
mov ds,ax
xor di,di
xor si,si
mov cx,64000/4
rep movsd
pop ds es
popa
ret
aff endp
cube proc near
pusha
push ds es
push cs
pop es
;mov ax,es:[superfuck]
;cmp es:[superfuck],0
;je eerretterert
;sub es:[superfuck],320*2
;eerretterert:
mov ax,0
mov si,0*320
add si,ax
mov ax,es:[si]
shr ax,5
mov bx,320
mul bx
mov di,ax
add di,10
mov ax,bomberman
mov ds,ax
mov ax,ds:[video_seg5]
mov bx,ds:[video_seg4]
mov ds,ax
mov es,bx
mov di,320*20+20
mov cx,81 ;hauteur
rterrttrtrrt:
push cx si di
mov cx,140
rereerrerereerre:
lodsb
add es:[di],al
inc di
dec cx
jnz rereerrerereerre
pop di si cx
add si,320
add di,320
dec cx
jnz rterrttrtrrt
pop es ds
popa
ret
cube endp
kelchar proc near
cmp al,'a'
jne rerere
mov si,0
ret
rerere:
cmp al,'b'
jne rerere2
mov si,8*1
ret
rerere2:
cmp al,'c'
jne arerere2
mov si,8*2
ret
arerere2:
cmp al,'d'
jne drerere2
mov si,8*3
ret
drerere2:
cmp al,'e'
jne frerere2
mov si,8*4
ret
frerere2:
cmp al,'f'
jne trerere2
mov si,8*5
ret
trerere2:
cmp al,'g'
jne yrerere2
mov si,8*6
ret
yrerere2:
cmp al,'h'
jne urerere2
mov si,8*7
ret
urerere2:
cmp al,'i'
jne irerere2
mov si,8*8
ret
irerere2:
cmp al,'j'
jne orerere2
mov si,8*9
ret
orerere2:
cmp al,'k'
jne prerere2
mov si,8*10
ret
prerere2:
cmp al,'l'
jne mrerere2
mov si,8*11
ret
mrerere2:
cmp al,'m'
jne wrerere2
mov si,8*12
ret
wrerere2:
cmp al,'n'
jne xrerere2
mov si,8*13
ret
xrerere2:
cmp al,'o'
jne crerere2
mov si,8*14
ret
crerere2:
cmp al,'p'
jne vrerere2
mov si,8*15
ret
vrerere2:
cmp al,'q'
jne brerere2
mov si,8*16
ret
brerere2:
cmp al,'r'
jne nrerere2
mov si,8*17
ret
nrerere2:
cmp al,'s'
jne qqrerere2
mov si,8*18
ret
qqrerere2:
cmp al,'t'
jne ssrerere2
mov si,8*19
ret
ssrerere2:
cmp al,'u'
jne dssrerere2
mov si,8*20
ret
dssrerere2:
cmp al,'v'
jne ddrerere2
mov si,8*21
ret
ddrerere2:
cmp al,'w'
jne rrrerere2
mov si,8*22
ret
rrrerere2:
cmp al,'x'
jne wwrerere2
mov si,8*23
ret
wwrerere2:
cmp al,'y'
jne wwwrerere2
mov si,8*24
ret
wwwrerere2:
cmp al,'z'
jne vvrerere2
mov si,8*25
ret
vvrerere2:
cmp al,'0'
jne vvrerere2hr
mov si,8*26
ret
vvrerere2hr:
cmp al,'1'
jne vvrerere2h
mov si,8*27
ret
vvrerere2h:
cmp al,'2'
jne vvrerere2j
mov si,8*28
ret
vvrerere2j:
cmp al,'3'
jne vvrerere2k
mov si,8*29
ret
vvrerere2k:
cmp al,'4'
jne vvrerere2l
mov si,8*30
ret
vvrerere2l:
cmp al,'5'
jne vvrerere2w
mov si,8*31
ret
vvrerere2w:
cmp al,'6'
jne vvrerere2x
mov si,8*32
ret
vvrerere2x:
cmp al,'7'
jne vvrerere2c
mov si,8*33
ret
vvrerere2c:
cmp al,'8'
jne vvrerere2v
mov si,8*34
ret
vvrerere2v:
cmp al,'9'
jne vvrerere2b
mov si,8*35
ret
vvrerere2b:
cmp al,'!'
jne rerere2b
mov si,8*36
ret
rerere2b:
cmp al,'-'
jne rereren2
mov si,8*37
ret
rereren2:
cmp al,'/'
jne rerere2h
mov si,8*38
ret
rerere2h:
cmp al,'.'
jne yrerere2hrr
mov si,8*39
ret
yrerere2hrr:
cmp al,'█'
jne rerere2hr
;inc es:[adder_l],40*6 +1
mov es:[viseur_l],10*320+2-8
mov es:[yahoo],0
ret
rerere2hr:
cmp al,'+'
jne rerere2hrr
mov es:[adder_l],0
mov es:[viseur_l],10*320+2-8
mov es:[yahoo],0
ret
rerere2hrr:
cmp al,';'
jne rerere2hrreerer
add es:[viseur_l],320*10-160
ret
rerere2hrreerer:
ret
kelchar endp
afflettre proc near
pusha
push ds es
push cs
pop es
push cs
pop ds
;..............
mov si,offset pal
mov dx,3c8h
XOR al,al
mov cx,256+256+256
out dx,al
mov dx,3c9h
mov cx,256*3
ysaaccvaaaax:
LODSB
out dx,al
dec cx
JNZ ysaaccvaaaax
;.............................
cmp es:[yahoo],1
je rterttrtrtrtree
mov si,offset pal
mov di,offset pal
add si,32*3
add di,160*3
mov cx,32*3
rreerreer:
mov al,es:[si]
cmp es:[di],al
je rereerreerer
dec byte ptr es:[di]
rereerreerer:
inc si
inc di
dec cx
jnz rreerreer
dec es:[merde]
jnz rterttrtrtrtree
mov di,offset pal
add di,160*3
mov al,63
mov cx,32*3
rep stosb
mov es:[yahoo],1
mov es:[merde],63
push es ds
mov ax,bomberman
mov ds,ax
mov ax,ds:[video_seg5]
mov es,ax
mov di,0*320
ertrtertert:
and byte ptr es:[di],127
inc di
cmp di,(60+81)*320
jne ertrtertert
pop ds es
rterttrtrtrtree:
;...........................................
cmp es:[yahoo],0
je rterttrtrtrtr
mov si,offset texte
add si,es:[adder_l]
inc es:[adder_l]
add es:[viseur_l],8
mov al,es:[si]
cmp al,' '
je rterttrtrtrtr
call kelchar
;mov ax,si
;
;call affsigne
add si,78*320
mov di,es:[viseur_l]
;add es:[viseur_l],8
mov ax,bomberman
mov ds,ax
mov ax,ds:[video_seg5]
mov es,ax
mov cx,6
erererreer:
push si di
lodsb
or es:[di],al
inc di
lodsb
or es:[di],al
inc di
lodsb
or es:[di],al
inc di
lodsb
or es:[di],al
inc di
lodsb
or es:[di],al
inc di
lodsb
or es:[di],al
inc di
lodsb
or es:[di],al
inc di
lodsb
or es:[di],al
inc di
;lodsb
;add es:[di],al
;inc di
pop di si
add di,320
add si,320
dec cx
jnz erererreer
rterttrtrtrtr:
pop es ds
popa
ret
afflettre endp
change_emf_data proc near
cmp bl,1
je efggggggggghjj
inc dl ;incremente
cmp dl,10
jb eadfffffffffffffffffffa
sub dl,10 ;mov dl,0
inc dh
eadfffffffffffffffffffa:
cmp dh,8 ;10 ;7 ;10 ;40 ;!!!1
jne efghdfghfghjhjg
;mov dh,10
mov dl,1 ;virgule
mov bl,1
mov cl,0
;mov bl,1
;mov bl,100 ;code pour sortir.
;mov al,100 ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!! code ki veut dire fini!!
;mov bp,100
;mov bl,0
;mov dl,1
;mov ax,remdy3
;mov es,ax
;inc es:[time_zoom]
efghdfghfghjhjg:
ret
efggggggggghjj:
dec dl ;incremente
cmp dl,0 ;-1 10
jne egadfffffffffffffffffffa
add dl,10 ;mov dl,0
dec dh
egadfffffffffffffffffffa:
cmp dh,0
jne edfghdfghfghjhjg
mov bl,0
edfghdfghfghjhjg:
ret
change_emf_data endp
EMF PROC NEAR
push es ds
pusha
;CIRCUIT1F SEGMENT USE16
; CIRCUIT1_F DB 64000 DUP (?)
;CIRCUIT1F ENDS
;SPRITE1 SEGMENT USE16 ;pour les sprite (1ere couleur...)
;ECLIPSE DB 17000 DUP (?)
;SPRITE1 ENDS
;SPRITEC2 SEGMENT USE16 ;pour les sprite (2eme couleur...)
;
;ECLIPSEC2 DB 64000 DUP (?)
push ax ;!!!
mov ax,bomberman
mov ds,ax
xor si,si
;push dx
;shr dx,8 ;pour viseur plus a droite/gauche en fonction du zoomage pour ke ca aille pas a gauche
;shr dx,1
;add si,dx ;
;mov ax,320
;mul dx
;add si,ax
;
;
;
;pop dx
;;;;;;;;;;;;;;;;;;;;;;;add si,80*320+120
;mov dl,0
;push dx
;shr dx,8
;add si,dx
; pop dx
mov ax,ds:[video_seg]
mov es,ax
xor di,di
pop ax ;!!!!
mov BP,200 ;00
;cmp dh,1 ;cas special pour ke ca en affiche pas trop !!! (au debut...)
;ja dfffffffffdgdgdfgdfdfg
;mov BP,100
;dfffffffffdgdgdfgdfdfg:
mov cx,0 ;pour le compteur (partie verticalle)
;mov byte ptr es:[nombre_de_pixels2],0
ecfffffffffffffffffffffffffffffffff:
mov ch,dh ;on met le nombre de fois repete (valeur entiere dans ch!)
add cl,dl ;on met le nombre de fois repete (valeur virgule dans cl!)
cmp cl,10
jB edirect_line ; si <
sub cl,10
inc ch
edirect_line: ;si son repete la meme ligne...
push BX DX cx di SI BP
;............................. partie horizontale.
;mov byte ptr es:[nombre_de_pixels],0 ;on remet le compteur pour afficher
;un seul sprite a 0 (car on commence une nouvelle ligne...
xor bx,bx ;c'est le compteur...(pour la virgule...on garde le 'reste' a chaque
;fois
mov bp,320
ephyl:
;mov dh,1
;mov dl,0
xor cx,cx
mov cl,dh ;on met le nombre de fois repete (valeur entiere dans cx!)
add bl,dl ;dans bl on ajoute la partie(post-virgule).constante
;si bl est >9 on incremente CX!!!
cmp bl,10
jb ecinea ; saute si <
sub bl,10
inc cx
ecinea:
;..............
lodsb ;AL on utilise AL
dec si
ecine:
stosb ;AL
inc si ;;!!!!!
dec bp
Jz edhhdfdfghfghhdfgfgh
dec cx
jnz ecine
;DANS DH=le nombre de fois k'on repete chaque pixel
;DANS DL=la virgule du le nombre de fois k'on repete chaque pixel
;(0 a 9!!!)
;DANS COMPTEUR DE VIRGULE
jmp ephyl
edhhdfdfghfghhdfgfgh:
;.........................................................fin horyzontal
POP BP SI DI CX DX BX
esexis:
add di,320
add si,320
dec BP
JZ esexycoder ;fin de la routine
dec ch
JZ edirect_linesuck
;................... Si son repete la meme ligne... ........................
;evite de tout recalculer!
push ax si di ds cx
mov ax,ds:[video_seg] ;spritec2
mov ds,ax
mov si,di
sub si,320
mov cx,160/2
REP MOVSD
pop cx ds di si ax
;add si,320 ;!
jmp esexis
;.........................................................................
edirect_linesuck:
;--------
;add si,320 ;la on fait une nouvelle ligne...
;.............
;cmp si,320*19+247 ;la on fait une nouvelle ligne...
;jne eghhhtr
;mov si,247 ;!!
;call noping
;on sort!!!!!!!!!!!cas special.....ca on a recopie tout le logo!!!
;jmp esexycoder
eghhhtr:
;
;mov cl,dh ;on met le nombre de fois repete (valeur entiere dans cx!)
;add bl,dl ;dans bl on ajoute la partie(post-virgule).constante
;si bl est >9 on incremente CX!!!
;cmp bl,10
jmp ecfffffffffffffffffffffffffffffffff
esexycoder:
popa
pop ds es
ret
EMF ENDP
truc proc near
;----------------
mov dh,10
mov dl,1 ;virgule
mov bl,1
mov cl,0
;DANS bl on met si on doit incrementer ou decrementer AH !!
;bl:1 on decremente
;bl:0 on incremente
sdffggggggggde:
;call noping
call emf
pusha
call hory
call verti
call last
call afflettre
call cube
call aff
popa
call change_emf_data
cmp bl,100 ;code k'on a balance kan c fini!
je fgeghfghfghhfg
;apres on dirige la pal vers 33,0,23
in al,60h
cmp al,1
jne sdffggggggggde
fgeghfghfghhfg:
ret
truc endp
hory proc near
pusha
push es ds
push cs
pop es
add es:[adder2],2
cmp es:[adder2],360
jne rereerrerte
mov es:[adder2], 0
rereerrerte:
mov ax,es:[adder2]
mov es:[adder],ax
xor di,di
xor si,si
mov ax,bomberman
mov ds,ax
mov ax,ds:[video_seg]
mov bx,ds:[video_seg2]
mov ds,ax
mov es,bx
mov cx,75
enrtetrtr:
push si
push si
push es
push cs
pop es
mov si,offset sin
add si,es:[adder]
add [adder],2
cmp [adder],360
jne ererre
mov [adder],0
ererre:
mov ax,es:[si]
;call affsigne
sar ax,3
pop es
pop si
add si,ax
push cx
mov cx,320/4
rep movsd
pop cx
pop si
add si,320
dec cx
jnz enrtetrtr
pop ds es
popa
ret
hory endp
verti proc near
pusha
push es ds
push cs
pop es
add es:[adder4],4
cmp es:[adder4],360*2
jne rereerrerter
mov es:[adder4],0
rereerrerter:
mov ax,es:[adder4]
mov es:[adder3],ax
xor di,di
xor si,si
mov ax,bomberman
mov ds,ax
mov ax,ds:[video_seg2]
mov bx,ds:[video_seg3]
mov ds,ax
mov es,bx
mov cx,320
rtetrrttr:
push si di cx
push es si
push cs
pop es
add es:[adder3],2
cmp es:[adder3],360*2
jne errerere
mov es:[adder3],0
errerere:
mov si,offset sin
add si,es:[adder3]
mov ax,es:[si]
sar ax,6
mov bx,320
mul bx
pop si es
add si,ax
mov cx,75
er:
movsb
add si,320-1
add di,320-1
dec cx
jnz er
pop cx di si
inc di
inc si
dec cx
jnz rtetrrttr
pop ds es
popa
ret
verti endp
last proc near
pusha
push es ds
push cs
pop es
mov bx,es:[FUCK3]
mov bx,-15
;inc es:[FUCK3]
xor di,di
xor si,si
mov si,320*10
add si,bx
mov ax,bomberman
mov ds,ax
mov ax,ds:[video_seg3]
push bx
mov bx,ds:[video_seg4]
mov ds,ax
mov es,bx
pop bx
mov cx,50*80 ;16000
rep movsd
mov si,320*10
add si,bx
mov cx,50*80 ;16000
rep movsd
mov si,320*10
add si,bx
mov cx,50*80 ;16000
rep movsd
mov si,320*10
add si,bx
mov cx,50*80 ;16000
rep movsd
pop ds es
popa
ret
last endp
START: ;DEBUT DU PROGRAMME
mov ax,13h
int 10h
mov ax,bomberman
mov ds,ax
TAILLE_DU_FICHIER_EXE EQU 100
mov ah,04ah
mov bx,TAILLE_DU_FICHIER_EXE*64
int 21h
mov bx,4000
mov ah,48h
int 21h
jnc dfgfgfghfghhjfghjg2 ;saute si carry n'est pas a 1...
;----pas assez de memoire pour charger le segment pattern---
mov dx,offset erreur_memory_mess_pattern
mov ah,09h
int 21h
jmp fuckerreer
dfgfgfghfghhjfghjg2:
;-----------------------------------------------------------
mov ds:[VIDEO_SEG],ax
mov es,ax
;xor si,si
;xor di,di
;
;mov cx,64000
;rep movsb
mov bx,4000
mov ah,48h
int 21h
jnc rdfgfgfghfghhjfghjg2 ;saute si carry n'est pas a 1...
;----pas assez de memoire pour charger le segment pattern---
mov dx,offset erreur_memory_mess_pattern
mov ah,09h
int 21h
jmp fuckerreer
rdfgfgfghfghhjfghjg2:
;-----------------------------------------------------------
mov ds:[VIDEO_SEG2],ax
mov es,ax
mov bx,5000
mov ah,48h
int 21h
jnc rdfgfgfghfghhjfeghjg2 ;saute si carry n'est pas a 1...
;----pas assez de memoire pour charger le segment pattern---
mov dx,offset erreur_memory_mess_pattern
mov ah,09h
int 21h
jmp fuckerreer
rdfgfgfghfghhjfeghjg2:
;-----------------------------------------------------------
mov ds:[VIDEO_SEG3],ax
mov es,ax
mov bx,5000
mov ah,48h
int 21h
jnc rrdfgfgfghfghhjfeghjg2 ;saute si carry n'est pas a 1...
;----pas assez de memoire pour charger le segment pattern---
mov dx,offset erreur_memory_mess_pattern
mov ah,09h
int 21h
jmp fuckerreer
rrdfgfgfghfghhjfeghjg2:
;-----------------------------------------------------------
mov ds:[VIDEO_SEG4],ax
mov es,ax
mov bx,5000
mov ah,48h
int 21h
jnc trrdfgfgfghfghhjfeghjg2 ;saute si carry n'est pas a 1...
;----pas assez de memoire pour charger le segment pattern---
mov dx,offset erreur_memory_mess_pattern
mov ah,09h
int 21h
jmp fuckerreer
trrdfgfgfghfghhjfeghjg2:
;-----------------------------------------------------------
mov ds:[VIDEO_SEG5],ax
mov es,ax
xor di,di
mov al,0
mov cx,64000
rep stosb
;fabrique le carre...
;
mov di,0*320
mov al,64
mov cx, 140
push di
rep stosb
pop di
mov cx,80
rereererre:
add di,320
push cx
push di
mov al,64
stosb
mov al,32
mov cx, 140-2
rep stosb
mov al,64
stosb
pop di
pop cx
dec cx
jnz rereererre
mov al,64
mov cx, 140
push di
rep stosb
pop di
;---- affpal
push cs
pop ds
push cs
pop es
xor ax,ax
mov si,offset pal
mov di,offset pal
add di,32*3
mov cx,32
rrerererere:
; lodsb
; add ax,63
; shr ax,1
; stosb
lodsb
add ax,63
shr ax,1
stosb
movsb
movsb
dec cx
jnz rrerererere
mov di,offset pal
add di,64*3
mov al,63
mov cx,32*3
rep stosb
;................................
mov di,offset pal
add di,128*3
mov al,63
mov cx,128*3
rep stosb
;.................
mov si,offset pal
mov dx,3c8h
XOR al,al
mov cx,256+256+256
out dx,al
mov dx,3c9h
mov cx,256*3
saaccvaaaax:
LODSB
out dx,al
dec cx
JNZ saaccvaaaax
;----
call truc
;mov ah,08h ;attend la frappe d'un caractere
;int 21h ;
;..............;
fuckerreer:
mov ax,3
int 10h
MOV AX,04C00H
INT 21H
include PAL.INC
sin Dw 0 , 4 , 8 , 13 , 17 , 22 , 26 , 31 , 35 , 39
Dw 44 , 48 , 53 , 57 , 61 , 65 , 70 , 74 , 78 , 83
Dw 87 , 91 , 95 , 99 , 103, 107, 111, 115, 119, 123
Dw 127, 131, 135, 138, 142, 146, 149, 153, 156, 160
Dw 163, 167, 170, 173, 177, 180, 183, 186, 189, 192
Dw 195, 198, 200, 203, 206, 208, 211, 213, 216, 218
Dw 220, 223, 225, 227, 229, 231, 232, 234, 236, 238
Dw 239, 241, 242, 243, 245, 246, 247, 248, 249, 250
Dw 251, 251, 252, 253, 253, 254, 254, 254, 254, 254
Dw 255, 254, 254, 254, 254, 254, 253, 253, 252, 251
Dw 251, 250, 249, 248, 247, 246, 245, 243, 242, 241
Dw 239, 238, 236, 234, 232, 231, 229, 227, 225, 223
Dw 220, 218, 216, 213, 211, 208, 206, 203, 200, 198
Dw 195, 192, 189, 186, 183, 180, 177, 173, 170, 167
Dw 163, 160, 156, 153, 149, 146, 142, 138, 135, 131
Dw 127, 123, 119, 115, 111, 107, 103, 99 , 95 , 91
Dw 87 , 83 , 78 , 74 , 70 , 65 , 61 , 57 , 53 , 48
Dw 44 , 39 , 35 , 31 , 26 , 22 , 17 , 13 , 8 , 4
Dw 0 ,-5 ,-9 ,-14 ,-18 ,-23 ,-27 ,-32 ,-36 ,-40 ;i want a complete one
Dw -45 ,-49 ,-54 ,-58 ,-62 ,-66 ,-71 ,-75 ,-79 ,-84 ;prekak suck! ;)
Dw -88 ,-92 ,-96 ,-100,-104,-108,-112,-116,-120,-124;repeat after me:lame
Dw -128,-132,-136,-139,-143,-147,-150,-154,-157,-161
Dw -164,-168,-171,-174,-178,-181,-184,-187,-190,-193
Dw -196,-199,-201,-204,-207,-209,-212,-214,-217,-219
Dw -221,-224,-226,-228,-230,-232,-233,-235,-237,-239
Dw -240,-242,-243,-244,-246,-247,-248,-249,-250,-251
Dw -252,-252,-253,-254,-254,-255,-255,-255,-255,-255
Dw -255,-255,-255,-255,-255,-255,-254,-254,-253,-252
Dw -252,-251,-250,-249,-248,-247,-246,-244,-243,-242
Dw -240,-239,-237,-235,-233,-232,-230,-228,-226,-224
Dw -221,-219,-217,-214,-212,-209,-207,-204,-201,-199
Dw -196,-193,-190,-187,-184,-181,-178,-174,-171,-168
Dw -164,-161,-157,-154,-150,-147,-143,-139,-136,-132
Dw -128,-124,-120,-116,-112,-108,-104,-100,-96 ,-92
Dw -88 ,-84 ,-79 ,-75 ,-71 ,-66 ,-62 ,-58 ,-54 ,-49
Dw -45 ,-40 ,-36 ,-32 ,-27 ,-23 ,-18 ,-14 ,-9 ,-5
Dw 0 , 4 , 8 , 13 , 17 , 22 , 26 , 31 , 35 , 39
viseur_l dw 10*320+2-8
adder_l dw 0
merde dw 63
;
include texte.txt
adder dw 0
adder2 dw 0
adder3 dw 0
adder4 dw 0
yahoo dw 1
FUCK3 dw 0
superfuck dw 320*100
super2fuck dw 0
CODE ENDS
END START